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MODULE LIBSGET_FOREIGN ( ! Get a a oss 904 command Line 
{DENT = '1-011' ! File: LIBGETFOR.B32 Edit: RKR1011 
= 
BEGIN 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


't THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

ONLY IN ACCORDANCE WITH OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
tt QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


© 
® 
® 
® 
® 
: 
® 
® 
® 
a 
ie TRANSFERRED. ‘ 
® 
® 
® 
* 
® 
® 
& 
x 
® 
oa 


339 3 3 3 SS SS IOS OOS 


WN OC OONOUE WN @O0S NOUS WN (OO ODNOUS WN 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i; eppokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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'e¢ 
FACILITY: General Purpose Library 


ABSTRACT: 
Contains a routine to return the command Line from the 
last entered CLI foreign command. An optional prompt 
string may be supplied. 
ENVIRONMENT: User mode - AST reentrant 
AUTHOR: Benn Schreiber and Steven Lionel, CREATION DATE: 18-May-1979 
EDIT HISTORY: 
1-001 - Original. Adapted from Benn Schreiber's MACRO version. SBL_ 18-May-1979 
1 4 - Call LI D instead of LIBSGET_INPUT. SBL 10-Jul-197 
1-005 = Optionally, return the number of characters returned Also, use 
l ty for string copie . JBS 18-SEP-1979 
= - Back to SYS ~~ if no command Line. 
aa Dt Ge armel basthek a Tt escen INPUT. Th 
- = no or $s e on't c¢ i was 
the or Trot design, but edit Mook changed it. Bt ig-der-1979 
BSGET_I n it. 5-Jan-1980 
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: 38 0058 1 | 1-011 = Change to do copying via LIBSSCOPY_DXDX6. KR 18-NOV-1981 
1 i<BLF/PAGE> 
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61 : 
6 ! SWITCHES: 
6 : 
64 
65 SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
e9 ! LINKAGES: 
6 REQUIRE "RTLIN:STRLNK'; ! Linkage to LIBSSCOPY_DXDX6 
71 : 

4 : TABLE OF CONTENTS: 

74 , 
75 FORWARD ROUTINE 

g LIBSGET_FOREIGN; ! Get foreign command Line 

7 : 
79 : INCLUDE FILES: 

$ ! 

¢ LIBRARY ‘RTLSTARLE'; 

: REQUIRE ‘RTLIN:RTLPSECT’; 


| MACROS: 

NONE 

EQUATED SYMBOLS: 

: NONE 

PSECT DEFINITIONS: 
DECLARE _PSECTS (LIB); 
: OWN STORAGE: 

NONE 

: EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
SYSSCLI 
LIBSSCOPY_DxXDX6 : STRING_JSB, 


LIBSSFREE1 DD, 
LIBSGET_ INPUT; 


EXTERNAL LITERAL 
LIBS_INPSTRTRU, ! Input string truncated 
ait STRTRU; ! String truncated (success) 


EXTERNAL 


Get command Line from CLI 
copy, saree of any type to 


ire’ H "dynamic string 
Get string from SYSSINPUT: 
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i FUNCTIONAL DESCRIPTION: 
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3 LIBSGET_FOREIGN ( ' Get a et ll command Line 
GET_STRING: REF BLOCK C, BYTE) ' Returned str ng 
USER PROMPT: REF BLOCK f gvted. i Optional promp 
OUTLEN: REF VECTOR WORD ‘ i Number of bytes stored in GET_STRING 
FORCE_PROMPT: REF VECTOR C, LONG) i Force call to LIBSGET_INPUT 


LIBSGET_FOREIGN obtains text from the command Line that 

activated the current image. The yeer program can then 

intereret this text in any manner it desires. Using this 

facility, user programs can be made to look Like commands 

which are intrinsic to the system. 

The most useful way of using LIBSGET_FOREIGN, is if it is 

called from a program activated by a DCL “foreign command", 

hence the name. foreign command allows any image to be run 

by means of its own command name. 

To define a foreign command, use the following DCL command: 

$ command_name :== $filespec 

where ‘‘command_name’’ is the name of the foreign command you 

wish to define and ‘‘filespec’’ is the fully qualified file specification 
of the executable image to be run when ‘‘command_name’’ is invoked. 

For example: 

$ VULCAN :== $DB0:CSPOCKIVULCAN.EXE 

The ‘’S"' is required and must immediately precede the file specification. 


frowning that the above command VULCAN was defined, the command 
ne: 


$ VULCAN /OUTPUT=GANYMEDE TITAN.DAT 

would start running the image DBO:CSPOCKIVULCAN.EXE. If that 
program then calls LIBSGET_FOREIGN, it can obtain the remainder 
of the command Line, which in the example would be the string 
**/OUTPUT=GANYMEDE TITAN.DAT" 

(without the quotes, of course). 


The user program can then analyze this returned string in any manner 
it desires. No interpretation is done by DCL. 


If the image resides in the SYSSSYSTEM: Stegctory. it can be 
run using the MCR command. moran sy the first token in the 
returned text would be the name of the image being run, but 

LIBSGET_FOREIGN makes a special check and skips over that token. 


The optional parameters ‘‘user_prompt’’ and ‘‘force_prompt’’ allow 
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; 17 b BSGET_INPUT to be called to proapt the user for the command Line 
1 no yexe was entered on the Line coat ast vated the program To 
use this feature, specify a prompt string for ‘‘user prone Ff no 
text is found on the command Line, LIBSGET_INPUT will be called to 
prompt for the text. Text returned from LIBSGET_INPUT is translated 


to upper case so as to minimize the differences Between prompted-for 
text and command-line text. 


Some enet Ycot tons may wish to call LIBSGET_FOREIGN in a Loop, having 
‘t retr gve the command Line on the first Tnvocation, but grongs ng 
with Lie GET er on phe second and subsequent invocations. To 
acconp> sh th 4 spec! y the parameter ‘‘force_prompt’’ as an loseper 
variable which {s initialized before the loop to zero. LIBSGET FOREIGN 
will set this variable to 1 before returning. *“force_prompt” is 

1 upon entry to LIBSGET FOREIGN, LIBSGET_INPUT will be called directly. 
Note that “‘user_prompt’’ must also be specitied for prompting to occur. 
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If no command Line is present and if ‘‘user_prompt’’ is omitted, a zero-length 
string is returned. 
CALLING SEQUENCE: 


status.wic.v = 3 og FOREIGN (opt_gtring.ut dx C, Cuser_prompt.rt.dx] 
» Coutlen.ww.r] C, force_prompt.m(.rJJJ) 
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FORMAL PARAMETERS: 


get_string i -A string passed by descriptor into which 
is written the command Line. 
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user_prompt = An optional string posses by descriptor 
which is used for the prompt in the case 
that there is no information on the 
eee Line. If omitted, no prompting 
one. 


outlen - The number of bytes stored in get string, 
not counting blank padding. 


force_prompt - An optional longword, passed by reference. 
f zero, the command Line will be returned 
if present. If one, LIBSGET_INPUT will 
be called instead. ‘‘force_prompt’’ is set 
to 1 before returning. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
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1 : SS$_NORMAL - Successful cone tet ion 
5 1 ' LIBS_INSVIRMEM = There was insufficient virtual memory to 

! H copy the string to the dynamic class output 
1 ; LIBS_INVSTRDES = A string descriptor had an tnval i¢ format. 
1 : LIBS_INPSTRTRU = The command Line was too big to fit in the 

4 1 ; output string. It was truncated. 

? : RMS$_xxx - RMS errors returned by LIBSGET_INPUT. 

4 1 : 

44 ! SIDE EFFECTS: 

45 } 

S NONE 

le 


BEGIN 


BUILTIN 
NULLPARAMETER; 


LOCAL 
YNAM_LEN, ! Length of dynamic string 
OMPT_FLAG, ' Indicate whether or not to prompt 
R ' Return status 
t 1_ STATUS 
C 
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a U ! Return status from LIBSGET_INPUT 
1_REQ BLOCK : BLOCK CCLISC_REQDESC, BYTE), ! CLI request block 
I-STATUS; ! Return status from SYSS$CLI 


wr 


1+ 
: Initialize CLI command request block. 


CHSFILL (0, CLISC_REQDESC, CLI_REQ BLOCK); 
CLI_REQ_BLOCK CLISB_ROTYPE) ="CLISK_GETCMD; ! Request type = Get Command 
ns DYNAM_LEN = 0; : No dynamic string yet 
i Determine if force prompt is present. If so and if 0, qo ahead and call 
If 1 ET_INPUT. 


: SYSSCLI. . don't call SYSS$CLI but call LIBSGET 


5 al ek tt eh he had 
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. NULLPARAMETER (4) 


PROMPT_FLAG = 0 
ELSE 


PROMPT_FLAG = .FORCE_PROMPT (0); 
FORCE _PROMPT (0) = 13 


'¢ 
: If PROMPT_FLAG is 0, then call SYSSCLI. 


PRAEAPLDP AAMT & 


IF NOT .PROMPT_FLAG 
THEN 
BEGIN 
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LENGTH = .OR 
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1 T FOREIGN 16-Sep-1984 259: AX-11 Bliss-32 V4.0-74 Page 8 
ith 1 ~3007 138% 90:38:93 YERTL SREILEBGE TEOR. 68251 . (3) 
; 1 67 '¢ 
38 é } Get the command Line from the CLI, if any. 
3 5 CLI_STATUS = SYSSCLI (CLI_REQ_BLOCK); 
7 '¢ 
7 ! A the image was invoked via MCR, skip over the first token which 
98 2 ! is the name of the image. 
00 RR 27 
1 sry I aati AND .CLI_REQ_BLOCK CCLISB_RQSTAT] EQLU CLISK_VERB_MCR “ 
: ang BEGIN 
04 580 LOCAL 
05 581 POINTER, ! Local pointer 
5] 5 ¢ LENGTH ' Local length 
0 5 ORIG_LENGT ! Original ongeh 
08 5 CLI_BSC : REF BLOCK f8. BYTE]; ‘| Pointer to CLI descriptor 
09 585 CLI_DSC7= CLJ_REQ_BLOCK CCLI$Q_RQbESC); 
0 586 poraren = CHSFIND CH (.CLI_OSC CDSC$W_LENGTH], -CLI_DSC COSCSA_POINTERJ, %C* '); 
1 82 i ts FAIL (. POINTER) ! Blank not found? 
5 et 4 CLI_DSC CDSCSW_LENGTH] = 0 
ne {341 ELSE GI 
6 B206 ORIG_LENGTH = .CLI_DSC COSCSW_LENGTHI; 
7 059 LENGTH = .ORIG_LENGTH = CHSDIFF (.POINTER, .CLI_DSC CDSCSA_POINTER]); 
8 0594 POINTER = CHSFIND_NOT_CH (.LENGTH, .POINTER, %C° '); 
3 0395 IF CHSFAIL (. POINTER) 
1 b399 CLI_DSC CDSCSW_LENGTH) = 0 
; 0598 
i 
5 
6 
7 
8 
9 
0 
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600 N IG_LENGTH = CHSDIFF (.POINTER, .CLI_DSC CDSCSA_POINTER)); 
0601 CLI_DSC postennbe wales = LENGTH; 
960 CLI“DSC COSCSA-POINTER] = .POINTER; 
0604 END; 
ret oe END; 
060 LSE 
0608 CLI_STATUS = 0; 
rts '¢ 
1 i Check for failure or null command Line. If so, call 
8 ig ; LIBSGET_INPUT if user supplied a prompt else return 0 Length string. 
8 14 . 
9 15 LGI_STATUS = 1; ' Assume success 
? 1g a ~CLI_STATUS) OR (.CLI_REQ_BLOCK CCLISW_RQSIZE} EQL 0) 
§ 18 BEGIN 
1 LOCAL 
4 620 CLI_DSC : REF BLOCK fs. exTed: 
5 1 CLI_DSC7= CLI_REQ BLOCK CCL1$Q_RQ0ESC); ' Descriptor address 
§ 6 ; CLI=DSC poscse Ci ss = DSCS$K_CLASS_D; ! Dynamic 
6 CLI_DSC COSCS$B_DTYPEJ = DSCSK_DTYPE_T; ' Text 
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DSC [DSCSW_LENGTH] = 0; a alla 
DSt EDSESAZPOINTERI = 6; | ength string 


If the user supplied a prompt, then call LIBSGET_INPUT 
for the string. 


if NOT NULLPARAMETER (2) 


LGI_STATUS = LIBSGET_INPUT (-Ch1 OSC, -USER_PROMPT) ; 
DYNAM_LEN = .CLI_DSC COSCSW_LENGTHI; 


1+ 
Upcase the string 
CHSTRANSLATE (LIB$AB 
-CLI_DS 
-CLI_DS » 
END; 


v 


$W_LENGTHI, 
1_D§C CDSCSA_POINTER)); 


Ooc 


Copy the string to the user's string with correct semantics. 


RET_STATUS = LIBSSCOPY DXDX6 (CLI_REQ_BLOCK CCLIS$Q_RQDESC], .GET_STRING); 
od ~RET_STATUS EQLU LIBS_STRTRU 


RET_STATUS = LIBS_INPSTRTRU; 


If the user wants the length returned, return it. 


IF NOT NULLPARAMETER (3) 


OUTLEN CO] = MINU (.CLI_REQ_BLOCK CCLI$W_RQSIZEJ, .GET_STRING CDSC$W_LENGTH)); 


: Free our temporary string if we have on< 


IF .DYNAM_LEN GTR 0 


LIBSSFREE1_DD (CLI_REQ_BLOCK CCLI$Q_RQDESC)); 


Return to our caller with the worst return status. 


IF_.LGI_STATUS 


RETURN .RET_STATUS 
RETURN .LGI_STATUS; 
! End of routine LIBSGET_FOREIGN 
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TITLE LIBSGET. FOREIGN 
“IDENT \1-011\7 

.EXTRN SYSSCLI LIBSscory DXDX6 
[EXTRN LIBSSFREE1_DD, LIBSGET_ INPUT 
EXTRN LIB$_INPSTRTRU, LIB$_STRTRU 
eEXTRN LIBSAB_UPCASE 


-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 


O1FC 99009 .ENTRY LIBSGET_FOREIGN, Save R2,R3,R4,R5,R6,.R7,RE ; 

5E 1¢ ce 900¢ SUBL ' ; 

1C 00 6E 00 C 60005 MOVCS #0, (SP), #0, #28, CLI_REQ_BLOCK : 
6E 01 90 00008 MOVB #1, CLI REQ_BLOCK : 

58 D4 O000E CLRL DYNAM_LEN ; 

04 6c 91 90019 CMPB sé AP?) , #4 : 

05 1F 0001 BLSSU F 

10 AC 05 00015 TSTL  16(AP) : 

04 12 00018 BNEQ : 

50 D4 OOO1A 1$: CLRL § PROMPT_FLAG : 

08 11 0001C BRB 3$ : 

50 10 BC oO O00iE 2$: MOVL af ORCE PROMPT , PROMPT _FLAG : 

10 BC 01 D9 000 MOVL aFORCE_PROMPT : 

54 50 €E8 00026 3$: BLBS Sronet PLAC, 8$ ; 

5E DD 00029 PUSHL SP : 

000000006 00 01 FB 00028 CALLS f, SYSSCLI : 

55 50 DO 000 : MOVL CLI rolATys : 

47 55 £9 0003 BLBC eCf_§ : 

21 03 AE 91 00038 CMPB sé “Rea Ty ockss, #33 : 

41 12 0003C¢ BNEQ 9$ ~ ; 

52 08 AE 9E 0003 MOVAB ch. REQ BLOCK+8, CLI_DSC ; 

04 B82 62 20 3A 0004 LOCC §=_s#32,.-« CCC_DSC), a4(CCI_Dsc) : 
02 12 0004 BNEQ 4$ : 

51 D4 0049 CLRL = R21 ; 

51 dS 048 4$: TSTL POINTER ; 

18 13 00040 BEQL 6$ : 

54 $¢ 3¢ O004F MOVZWL (CLI_DSC) ORIG, LENGTH ; 

50 04 A2 1 ¢ 005¢ SUBL POINTER. Caw RO ; 
53 50 54 g! 005 ADDL ons6.t LENGTH, LLP tenet 3 
61 53 20 0058 SKPC #32, LENGTH, CPOINTER) F 
O¢ 1 O0>f BNEQ 5$ ; 

D 61 CLRL R1 : 

51 D3 906 5$ TSTL POINTER : 

04 12 0006 BNEQ 7$ ; 

62 BA 067 6$: CLRW © (CLI_DSC) : 

14 11 00069 BRB 9$ ; 

50 04 a2 51 C3 068 7$: SUBL POINTER, 4({LI_DSC), RO ; 
5 5 54 (C1 ADDL3 ORIG LEN NGTH RO, LENGTH ; 
62 ay 80 74 MOVW CENGTH cLi_ps¢) : 

06 =A 51 p 77 MOVL POINTER, eer} DSC) : 

: 1 7B BRB 9$ ; 

i 1 5 S880 BE: bt SAT-EUATUE an 7 

05 5 3 nite BLBC = CLE_STATUS, 18s : 


a 
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08 ag 85 TSTW CL1_REQ_BLOCK+8 : F 

5 AE 9E QOOBA 108: ROVAB CLT REQ BLOCK+8, CLI_DSC : ; 

3 02060090 8F Hi MOVE” #BGz 7193 (CLI_DSC)~ : ; 

04 A2 p4 CLRL =: &¢CLI_DSCS : ; 

02 6C 91 0009 CMPB sé AP) ; ; 

14 Ff 098 BLSSu _11$ : ; 

08 Ac D3 9D TSTL CAP) : ; 

OF 13 OOOA BEQL 1$ : ; 

08 AC DD OOOA PUSHL USER_PROMPT : ; 

52 DD OOOA PUSHL  CLI_BSC : ; 

000000006 99 ’ FB 0 A? CALLS #2, LIBSGET_INPUT : ; 

AE MOVL RO, LGI_STATUS : ; 

58 62 3C 000B1 11$:  MOVZWL (CLI_DST), DYNAM_LEN : ; 

000000006 00 20 04 Be 62 2€ 90084 MOVTC (CLITDSC). @4(CLIT DSC), #32, - : F 
04 8B 6 OOBE LIBSAB_UPCASE, (CCI_DSC), a4(CLI_DSC) : ; 

50 08 AE 9 000C1 12$:  MOVAB CLI_REQ_BLOCK+8, RO : ; 

51 04 AC DO 000C5 MOVL  GET"STRING, R1 : : 

000000006 00 16 000C9 JSB LIBSSCOPY_BXDX6 : : 

52 DO OOOCF MOVL RO, RET_STATUS : ; 

000000006 8F 52 D1 00002 CMPL Ret STATUS, #L18$_STRTRU : ; 

07 if 00009 BNEQ 13$ : ; 

52 000000006 8F D0 000DB MOVL § #LIBS_INPSTRTRU, RET_STATUS , : ; 

0 6c 91 O00E2 13$:  CMPB (AP),~#3 : ; 

17 1F OOOE BLSSU _15$ : ; 

Oc AC D5 000E7 TSTL 12¢AP») : ; 

12 13 QOOEA EQL 4=s«d5$ ; ; 

50 08 AE 3C OOOEC MOVZWL CLI_REQ_BLOCK+8, RO : ; 

50 04 BC B81 000FO CMPW @GET_STRING, RO : F 

04 1€ OO0F4 BGEQU 14$ : : 

50 04 BC 3C 000F6 MOVZWL @GET_STRING, RO : : 

oc BC 50 BO OOOFA 14$: MOVW RO, SOUTLEN : : 

58 DS OOOFE 15$:  TSTL = DYNAM_LEN : : 

OA 15 90190 BLEQ 16$ ; ; 

08 AE 9F 0108 PUSHAB CLI_REQ_BLOCK+8 : F 

000000006 00 ot FB 0010 CALLS #1, LIBSSFREE1 DD ; : 

04 7 €9 0010C 168:  BLBC LGI_STATUS, 178 ; : 

50 52 DO 0010F MOVL §RETTSTATUS, RO ; : 

04 OO1i¢ RET : ; 

50 57 D0 00113 17$:  MOVL LGI_STATUS, RO : : 

04 00116 RET : ; 

3; Routine Size: 279 bytes, Routine Base: _LIBSCODE + 0000 : 
: 405 0681 1 : 
; 406 Bees 1 END ‘End of module LIBSGET_FOREIGN 2 
> 407 0683 1 : 
: 408 0684 0 ELUDOM ; 
: PSECT SUMMARY ; 


Ee 


IBSGET_FOREIGN 16-Sep-1984 AX-11 Bliss-32 V4.0-74 Page 12 
Pitty 19-Se0-1984 99: 33; 9 PYARTL SRETL IBGE TFOR. 69251 ’ 4S 
: Name Bytes Attributes 
: _LIBSCODE 279 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

: Library Statistics 

3 ee ane SYEROLS Sccwscce Pages Processing 

: File Total ioaded Percent Mapped Time 

$ _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 13 0 581 00:00.7 

3 COMMAND QUALIFIERS 

; ee OST OLS TSA. OPT IRE SE OAL SIL FEL LOO LORE CORI TO TRISTE LOEL TPN MSRC$:LIBGETFOR/UPDATE=(ENH$:LIBGETFOR 
pieces 279 code + 0 data bytes 


un Time 706. 
anal Time: 00:32.9 
Lines/CPU Min: 643 
pouenee/ Pete 28664 

— Used: 119 pages 
a ation Complete 
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